Interactive Media Design Review 1999/Interactive Media Design Review 1999.iso/mac/allfiles/Storm/storm7.dir/00006_Script_video frame

Text File | 1999-04-26 | 899b | 45 lines

global theState
property myVideo, myInfo

on beginSprite
  set myVideo = 2
  set myInfo = 3
  set theState = #play
end

on exitFrame
  if the mTime of sprite myVideo = the stopTime of sprite myVideo then
    set the mTime of sprite myVideo = 0
    set the mRate of sprite myVideo = 0
    cursor[17,18]
    set theState = #pause
    sendSprite(myInfo, #fadeIn)
  end if
  go the frame
end

on mouseUp
  if rollover(myVideo) then
    set theState = #play
    sendSprite(myInfo, #fadeOut)
    set the mTime of sprite myVideo = 0
    set the mRate of sprite myVideo = 1
  else
    if theState = #play then
      cursor[17,18]
      set theState = #pause
      set the mRate of sprite myVideo = 0
    else
      cursor[15,16]
      set theState = #play
      sendSprite(myInfo, #fadeOut)
      set the mRate of sprite myVideo = 1
    end if
  end if
end